-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2152
-- card count: 1
-- first card id: 3103
-- list block id: 2593
-- print block id: 2995
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 12736 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on idle
  if the short time ≠ last word of field "lokal tid" then
    put the abbr date into field "lokal tid"
    put the short time into last word of field "lokal tid"
  end if
  pass idle
end idle

on openStack
  global modemDial
  put false into modemDial
  show message box
  push recent card
  pass openStack
end openStack

on dial string
  global dialNumber, dialArea, modemDial
  put string into dialNumber
  if string is empty then exit dial

  findAreaCode
  -- asettaa dialNumber ja dialArea
  -- kansainvälisiä numeroita ei käsitellä oikein

  if dialNumber is empty then exit dial

  if dialArea contains word 1 of field "area code"
  then put word 1 of field "preamble" before dialNumber
else put word 1 of field "preamble" & dialArea & " " before dialNumber

put "Soitan:" && dialNumber

if hilite of button "Kaiutin (äänitaajuus)" is true then
  send "dial" && quote & dialNumber & quote to HyperCard
else
  put true into modemDial
  show card field "lyft"
  if hilite of button "Modeemi (äänitaajuus)" is true
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0S7=2&D0DT" & quote to HyperCard

  if hilite of button "Modeemi (impulssi)" is true
  then send "dial" && quote & dialNumber & quote && "with modem" && quote & "ATS0=0S7=1&D0DP" & quote to HyperCard
  wait until the mouse is down
  hide card field "lyft"
end if

put empty
end dial

on findAreaCode
  global dialArea,dialNumber
  stripNonDigits
  put word 1 of field "area code" into dialArea
  if first char of dialNumber is "9" and length of dialNumber > 1 then
    repeat with i = 2 to length of dialNumber
      if char i of dialNumber is not in "0123456789" then
        put char 1 to i-1 of dialNumber into dialArea
        put empty into char 1 to i of dialNumber
        exit repeat
      end if
    end repeat
    stripNonDigits
  end if
  stripTrailer
end findAreaCode

on stripNonDigits
  global dialNumber
  repeat for the length of dialNumber
    get first char of dialNumber
    if it is in "0123456789#*" then exit stripNonDigits
    put empty into first char of dialNumber
  end repeat
end stripNonDigits

on stripTrailer
  global dialNumber
  repeat for the length of dialNumber
    get last char of dialNumber
    if it is in "0123456789#*" then exit stripTrailer
    put empty into last char of dialNumber
  end repeat
end stripTrailer

on closeStack
  global modemDial
  -- Återställ modemet om det har använts
  if modemDial is true then send "dial" && quote && quote && "with modem" && quote & "ATS7=60Z" & quote to HyperCard
  pass closeStack
end closeStack